home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pwfosl10.zip / PWFOSSIL.INT < prev    next >
Text File  |  1992-04-01  |  743b  |  23 lines
  1. unit pwfossil;
  2.  
  3. interface
  4.  
  5. type
  6.   parity=(none, even, odd);
  7.  
  8. procedure SetBaud(baud: word; port, stop, charlen: integer; p: parity);
  9. procedure SendChar(p: integer; c: char);
  10. procedure SendString(p: integer; s: string);
  11. function  RecvChar(p: integer; var c: char): boolean;
  12. function  InitFossil(p: integer): boolean;
  13. procedure DeInitFossil(p: integer);
  14. function  CarrierDetect(p: integer): boolean;
  15. procedure SetFlowControl(p: integer; ST, H, SR: boolean);
  16. procedure FlushOutput(p: integer);
  17. procedure PurgeOutput(p: integer);
  18. procedure PurgeInput(p: integer);
  19. procedure DTRRaise(p: integer; b: boolean);
  20. procedure SetWatch(p: integer; b: boolean);
  21. procedure Reboot(b: boolean);
  22. function  InputCheck(p: integer):boolean;
  23.